﻿Public Class PersonelKayit
    Inherits Process

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "Personel Kayıt/Değişiklik"
                InitialHelp = "Personeli seçin. Yeni kayıt için boş bırakın."
                AddCombo("@perno", "Personel adı", Personel.PersonelSource, "nl;width=25")
                StartBody()
                AddCombo("statu", "Statüsü", Personel.StatuSource, "nl;width=20")
                AddCombo("perdrm", "Durumu", Personel.DurumSource, "nl;width=20")
                AddCombo("mevkikod", "Mevkisi", Personel.MevkiSource, "nl;width=20")
                AddText("adi", "Adı", "nl")
                AddText("soyadi", "Soyadı", "nl")
                AddText("kimlik", "Kimlik no.", "nl")
                AddDate("dtar", "Doğum tar.", "nl")
                AddText("dsehir", "Doğduğu yer", "nl")
			Case EventType.ValidateForm
				If Not IsEmpty("perno") Then
					Rs = Personel.Ara(Remote, Input("perno"))
					SetValues("statu,perdrm,mevkikod,adi,soyadi,kimlik,dtar,dsehir", Rs("statu"), Rs("perdrm"), Rs("mevkikod"), Rs("adi"), Rs("soyadi"), Rs("dtar"), Rs("kimlik"), Rs("dsehir"))
				End If
				e.Result = True
            Case EventType.Save
                If Not Confirm("Değişiklikleri kaydetmek istediğinizden emin misiniz?") Then Exit Sub
                Personel.Kaydet(Remote, Input("perno"), Input("statu"), Input("perdrm"), Input("mevkikod"), Input("adi"), Input("soyadi"), Input("dtar"), Input("kimlik"), Input("dsehir"))
                Info("Değişklikler kaydedilmiştir.")
				Reset()
        End Select
    End Sub

End Class
